home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
DuitslandMAP_d1.adf
/
s
/
DPAT
< prev
next >
Wrap
AmigaDOS Script File
|
1993-08-17
|
689b
|
25 lines
.key com/a,pat/a,dir/a,opt1,opt2,opt3,opt4
failat 21
echo >ENV:qw<$$> "<dir>" first=256
IF $qw<$$> EQ ":"
list >t:q<$$> <pat> lformat="<com> *"%s%s*" *"<dir>%s*" <opt1> <opt2> <opt3> <opt4>"
skip doit
ENDIF
IF $qw<$$> EQ "/"
list >t:q<$$> <pat> lformat="<com> *"%s%s*" *"<dir>%s*" <opt1> <opt2> <opt3> <opt4>"
skip doit
ENDIF
IF EXISTS <dir>
list >t:q<$$> <pat> lformat="<com> *"%s%s*" *"<dir>/%s*" <opt1> <opt2> <opt3> <OPT4>"
ELSE
list >t:q<$$> <pat> lformat="<com> *"%s%s*" *"<dir>*" <opt1> <opt2> <opt3> <OPT4>"
ENDIF
lab doit
IF NOT FAIL
execute t:q<$$>
ELSE
echo "<pat> nicht gefunden"
ENDIF
failat 10
; Befehlen mit 2 Argumenten Jokerzeichen in Argumenten ermöglichen